// .txt

beginzonescript;

variables;

short crime_tolerance = 200;
short last_abil;
short i;
short walk_timer = 0;
short rez_count = 0;

body;

beginstate INIT_STATE;

//	set_name(,"");
	add_range_to_group(10,14,1);
	add_range_to_group(15,19,2);
	add_range_to_group(20,24,3);
	add_range_to_group(25,29,4);
	add_range_to_group(30,34,5);
	add_range_to_group(35,39,6);

	set_aggression(40,9);
	set_aggression(41,9);
	set_aggression(42,9);
	set_aggression(43,9);
	set_aggression(44,9);
	set_aggression(45,9);
	set_aggression(46,9);
	set_aggression(47,9);
	set_aggression(48,9);
	set_aggression(49,9);
	set_aggression(50,9);
	set_aggression(50,9);
	set_aggression(51,9);
	set_aggression(52,9);
	set_aggression(53,9);
	set_aggression(54,9);
	set_aggression(55,9);
	if (gf(100,13) < 2) {
		erase_char(40);
		erase_char(41);
		erase_char(42);
		erase_char(43);
		erase_char(44);
		erase_char(45);
		erase_char(46);
		erase_char(47);
		erase_char(48);
		erase_char(49);
		erase_char(50);
		erase_char(51);
		erase_char(52);
		erase_char(53);
		erase_char(54);
		erase_char(55);
		}
		
	//if (get_sdf() > 0) {
		//make_zone_hostile();
		//}

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	// clear zone?
	if ((zone_clear(ME) == FALSE) && (get_flag(28,17) > 0) && ((gf(28,15) > 20) || (gf(28,6) > 0))) {
		print_str_color("You have managed to make your way through this area.",2);
		clear_zone(ME);	
		}
		
	//if ((get_crime_level() >= crime_tolerance) && (get_sdf(,) == 0)) {
	//	make_zone_hostile();
	//	set_flag(,,1);
	//	}

	// if (gf(,) == 0) {
	//	if (get_ran(1,0,100) < 10)
	//		give_char_text_bubble(,"");
	//	}
	
	if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_group()) && (tick_difference(last_abil,get_current_tick()) > 3))) {
		last_abil = get_current_tick();

		walk_timer = walk_timer + 1;
		if (walk_timer >= 5) {
			walk_timer = 0;
			if (gf(28,16) == 0)
				sf(28,16,1);
				else sf(28,16,0);
			}

		if (rez_count > 0)
			rez_count = rez_count - 1;
			else {
				if ((gf(28,5) == 0) && (num_chars_in_group(1) == 0)) {
					print_str_color("There is a pulse of energy somewhere in the caves.",2);
					print_str_color("You smell ozone, and your hair stands on end.",2);
					spawn_creature(2);
					spawn_creature(3);
					spawn_creature(4);
					spawn_creature(5);
					spawn_creature(6);
					add_range_to_group(10,14,1);
					rez_count = 3;
					}
				else if ((gf(28,5) == 0) && (num_chars_in_group(2) == 0)) {
					print_str_color("There is a pulse of energy somewhere in the caves.",2);
					print_str_color("You smell ozone, and your hair stands on end.",2);
					spawn_creature(7);
					spawn_creature(8);
					spawn_creature(9);
					spawn_creature(10);
					spawn_creature(11);
					add_range_to_group(15,19,2);
					rez_count = 3;
					}
				else if ((gf(28,5) == 0) && (num_chars_in_group(3) == 0)) {
					print_str_color("There is a pulse of energy somewhere in the caves.",2);
					print_str_color("You smell ozone, and your hair stands on end.",2);
					spawn_creature(12);
					spawn_creature(13);
					spawn_creature(14);
					spawn_creature(15);
					spawn_creature(16);
					add_range_to_group(20,24,3);
					rez_count = 3;
					}
				else if ((gf(28,5) == 0) && (num_chars_in_group(4) == 0)) {
					print_str_color("There is a pulse of energy somewhere in the caves.",2);
					print_str_color("You smell ozone, and your hair stands on end.",2);
					spawn_creature(17);
					spawn_creature(18);
					spawn_creature(19);
					spawn_creature(20);
					spawn_creature(21);
					add_range_to_group(25,29,4);
					rez_count = 3;
					}
				else if ((gf(28,5) == 0) && (num_chars_in_group(5) == 0)) {
					print_str_color("There is a pulse of energy somewhere in the caves.",2);
					print_str_color("You smell ozone, and your hair stands on end.",2);
					spawn_creature(22);
					spawn_creature(23);
					spawn_creature(24);
					spawn_creature(25);
					spawn_creature(26);
					add_range_to_group(30,34,5);
					rez_count = 3;
					}
				else if ((gf(28,5) == 0) && (num_chars_in_group(6) == 0)) {
					print_str_color("There is a pulse of energy somewhere in the caves.",2);
					print_str_color("You smell ozone, and your hair stands on end.",2);
					spawn_creature(27);
					spawn_creature(28);
					spawn_creature(29);
					spawn_creature(30);
					spawn_creature(31);
					add_range_to_group(35,39,6);
					rez_count = 3;
					}
				}
		}
		

	break;

beginstate 11;
	sf(28,17,1);
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
